home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
n_b-v200.zip
/
NBV3
/
DMO
/
VFONT.DMO
< prev
next >
Wrap
Text File
|
1996-03-11
|
4KB
|
63 lines
$if 0
┌──────────────────────────╖ PowerBASIC v3.20
┌──┤ DASoft ╟──────────────────────┬──────────────────╖
│ ├──────────────────────────╢ Copyright 1995 │ DATE: 1995-10-01 ╟─╖
│ │ FILE NAME VFONT .DMO ║ by ╘════════════════─ ║ ║
│ │ ║ Don Schullian, Jr. ║ ║
│ ╘══════════════════════════╝ ║ ║
│ A license is hereby granted to the holder to use this source code in ║ ║
│ any program, commercial or otherwise, without receiving the express ║ ║
│ permission of the copyright holder and without paying any royalties, ║ ║
│ as long as this code is not distributed in any compilable format. ║ ║
│ IE: source code files, PowerBASIC Unit files, and printed listings ║ ║
╘═╤═════════════════════════════════════════════════════════════════════╝ ║
│ .................................... ║
╘═══════════════════════════════════════════════════════════════════════╝
$endif
'.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
$INCLUDE "DAS-NB01.INC"
$INCLUDE "DAS-NB02.INC"
$INCLUDE "DAS-NBV1.INC"
$INCLUDE "DAS-NBV3.INC"
SCREEN 12
GraphicSETUP
? "┌───────────────────────────────────────────────────────────────────────
? "│ fVFontLoad% ( FontFileName$ )
? "│ fVprintG% ( X1%, Y1%, Text$, Attr? )
? "├─────────────────────────────────────────────────────────────────────────
? "│ Vfonts are simply the standard 8x16 VGA fonts, stuffed into a file that,
? "│ when loaded into an array and stuffed through one of the PutXXX routines
? "│ prints the characters to the screen. SEE: MAKEFONT.BAS
? "├─────────────────────────────────────────────────────────────────────────
? "│ fVprintG% uses internally loaded Vfonts, fPutFBarr, fBackground? and
? "│ fForeground?. It puts text using graphic mode addresses but is also
? "│ used by fVprint?, fVprintM?, etc.
? "└─────────────────────────────────────────────────────────────────────────────
FileName$ = "DMO\V-FONT.850"
'┌────────────────────────────
IF NOT fVfontLoad%( FileName$ ) THEN '│ load codepage 850 font
PRINT "CAN'T FIND THE FONT FILE" '│ oops!
END '│
END IF '│
'│
U$ = CHR$(35,35,35,17,15) '│ using string
FOR Col% = 0 TO 638 STEP 40 '│ row/col printing
FOR Row% = 192 TO 478 STEP 16 '│
Text$ = USING$( U$, A% ) '│ ascii value & attr trigger
REPLACE " " WITH "0" IN Text$ '│ pad w/ zero's
Text$ = Text$ + CHR$(A%) '│ add the character
IF A% = 17 THEN Text$ = Text$ + CHR$(A%) '│ attr trigger so one more
fVprintG% Col%, Row%, Text$, 7 '│ print it
IF A% = 255 THEN EXIT, EXIT '│ all done!
INCR A%, 1 '│ next character
NEXT '│
NEXT '│
'│
fAnyKey '│ THUMP A KEY
CLS '│ clean up & go home
SCREEN 0 '└────────────────────────────